home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Business / Calendars / PM Calendar Scripts / 3 cal Tues-Leap < prev    next >
Text File  |  1992-02-18  |  11KB  |  528 lines

  1. —Leap year starting on Tuesday
  2. new 12
  3. toolbox off
  4. zeropointreset
  5.  
  6. ————————————————————————————————————————————————
  7. —define styles
  8. —define a style for the days of the month
  9. stylebegin “Days”
  10. font “Times”
  11. tabs 7,  (right, 0.3i, “ “) (right, 1.4i, “ “) (right, 2.6i, “ “) (right, 3.8i, “ “) (right, 5i, “ “) (right, 6.2i, “ “) (right, 7.4i, “ “)
  12. size 18
  13. paraspace 0i,  .7i
  14. leading 72
  15. spaceoptions true, 12, topofcaps 120
  16. paraoptions 1, 0, 0, 0, 0, 0, 0 
  17. styleend “Days”
  18.  
  19. —style for the Names of the months
  20. stylebegin “Months”
  21. font “Times”
  22. alignment center
  23. size 60
  24. typestyle bold
  25. leading auto
  26. paraspace 0i,  .55i
  27. spaceoptions true, 12, proportional, 120
  28. paraoptions 1, 0, 1, 0, 1, 0, 0 
  29. styleend “Months”
  30.  
  31. —style for the Week day names
  32. stylebegin “Days of week”
  33. font “Times”
  34. size 12
  35. typestyle bold
  36. typestyle reverse
  37. leading auto
  38. paraspace 0i,  0i
  39. spaceoptions true, 12, proportional, 120
  40. tabs 7,  (center, 0.5i, “ “) (center, 1.6i, “ “) (center, 2.8i, “ “) (center, 4i, “ “) (center, 5.2i, “ “) (center, 6.4i, “ “) (center, 7.6i, “ “)
  41. styleend “Days of week”
  42.  
  43. —style for the days of the previous/next month entries
  44. stylebegin “Small Days”
  45. font “Times”
  46. size 8
  47. leading auto
  48. paraspace 0i,  .45i
  49. spaceoptions true, 7, proportional, 120
  50. paraoptions 1, 0, 0, 0, 0, 0, 0 
  51. tabs 7,  (right, 0.2i, “ “) (right, .4i, “ “) (right, .6i, “ “) (right, .8i, “ “) (right, 1i, “ “) (right, 1.2i, “ “) (right, 1.4i, “ “)
  52. styleend “Small Days”
  53.  
  54. —style for the Names of the months for the previous/next month entries
  55. stylebegin “Small Months”
  56. font “Times”
  57. alignment center
  58. size 12
  59. leading auto
  60. paraspace 0i,  0.05i
  61. spaceoptions true, 12, proportional, 120
  62. paraoptions 1, 0, 0, 0, 1, 0, 0 
  63. styleend “Small Months”
  64.  
  65. —a working, tempory style used to create text in the calendar.  Removed upon completion
  66. stylebegin “temp”
  67. font “Times”
  68. size 4
  69. tabs 7,  (right, 0.125i, “ “) (right, 0.25i, “ “) (right, 0.375i, “ “) (right, 0.5i, “ “) (right, 0.625i, “ “) (right, 0.75i, “ “) (right, 0.875i, “ “)
  70. paraspace 0i,  0i
  71. paraoptions 0, 0, 0, 0, 0, 0, 0 
  72. styleend “temp”
  73.  
  74.  
  75. removestyle “Body text”
  76. removestyle “Caption”
  77. removestyle “Hanging indent”
  78. removestyle “Headline”
  79. removestyle “Subhead 1”
  80. removestyle “Subhead 2”
  81.  
  82. ————————————————————————————————————————————————
  83. —draw Days grid
  84. pageoptions 0 0    — single-sided pages
  85. pagesize 11i 8.5i
  86. pagemargins 2.3i 0.5i 0.5i 0.5i
  87.  
  88. —draw the 2 lines surrounding a ‘day’
  89. page rm
  90. line 9.5i 2i  10.5i 2i
  91. linestyle onepoint
  92. deselect
  93. line 10.5i 2i  10.5i 2.9i
  94. linestyle fourpoint
  95. selectall
  96. copy  
  97. multiplepaste 6 (-1.2i 0i)
  98. selectall
  99. copy
  100. multiplepaste 5 (0i  1i)
  101. deselect
  102.  
  103. —scratch pad lines
  104. line (0.5i  2i)  (2i  2i)
  105. linestyle onepoint
  106. copy
  107. multiplepaste 9  0i,  .3i
  108. deselect
  109.  
  110. —previous month master page items
  111. line (.5i  5.5i)  (2i  5.5i)
  112. linestyle onepoint
  113. deselect
  114. line (2i  5.5i) (2i  6.4i)
  115. linestyle fourpoint
  116.  
  117. —next month master page items
  118. selectextend 2i 5.5i
  119. copy
  120. multiplepaste 1  0i,  1.5i
  121.  
  122. —draw the Day of the Week box
  123. box (2.3i 1.735i) (10.55i 1.953i)
  124. fillstyle solid
  125. deselect
  126.  
  127. —type the Day of the Week names
  128. newstory  2.3i  1.835i
  129. style “Days of week”
  130. textenter “    Sunday    Monday    Tuesday    Wednesday    Thursday    Friday    Saturday”
  131. select 2.5i 1.835i
  132. move lefttop (2.3i 1.75i)
  133.  
  134. ——————————————————————————————————————————
  135. —Type the names of the months and days
  136. —each month must have 6 lines for correct spacing in the previous/next month sections
  137. page 1
  138. pagemargins 2.3i .5i 0.5i 0.3i
  139. newstory 2.3i .5i
  140. autoflow 1    — set autoflow on
  141.  
  142. style “temp”
  143. textenter “January
  144.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  145. February
  146.                         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29
  147. March
  148.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  149. April
  150.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  151. May
  152.                     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  153. June
  154.     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  155. July
  156.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  157. August
  158.                         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  159. September
  160.         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  161. October
  162.                 1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  163. November
  164.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  165. December
  166.         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  167. ————————————————————————————————————————————————
  168. —style the text
  169. textcursor -para
  170. style “Days”
  171. textcursor -para
  172. style “Months”
  173. textcursor -para
  174. style “Days”
  175. textcursor -para
  176. style “Months”
  177. textcursor -para
  178. style “Days”
  179. textcursor -para
  180. style “Months”
  181. textcursor -para
  182. style “Days”
  183. textcursor -para
  184. style “Months”
  185. textcursor -para
  186. style “Days”
  187. textcursor -para
  188. style “Months”
  189. textcursor -para
  190. style “Days”
  191. textcursor -para
  192. style “Months”
  193. textcursor -para
  194. style “Days”
  195. textcursor -para
  196. style “Months”
  197. textcursor -para
  198. style “Days”
  199. textcursor -para
  200. style “Months”
  201. textcursor -para
  202. style “Days”
  203. textcursor -para
  204. style “Months”
  205. textcursor -para
  206. style “Days”
  207. textcursor -para
  208. style “Months”
  209. textcursor -para
  210. style “Days”
  211. textcursor -para
  212. style “Months”
  213. textcursor -para
  214. style “Days”
  215. textcursor -para
  216. style “Months”
  217.  
  218. ——————————————————————————————————————————————————
  219. —place the Months and their names
  220. select 3i 3i
  221. move lefttop (2.3i  .5i)
  222. placenext
  223. page 2
  224. place 2.3i  .5i
  225.  
  226. —===================================
  227. —create the previous/next month dates
  228. —copy the January of the following year (use May since they begin on the same day of the week) and paste it into a temporary location. 
  229.  
  230. page 5
  231. select 5i 5i
  232. copy
  233. page 1
  234. newstory -2i  1i
  235. paste
  236. select -2i  1i
  237. move lefttop -2i -5i    —correct placement so shades can be closed later
  238.  
  239. —copy and paste the remaining 12 months of the year
  240. select 5i 5i
  241. textedit
  242. selectall
  243. copy
  244. select -2i -5i
  245. textedit
  246. paste
  247.  
  248. —copy and paste December of the previous year (use March since they begin on the same day of the week)
  249. page 3
  250. select 5i 5i
  251. copy
  252. page 1
  253. select -2i -5i
  254. textedit
  255. paste
  256. selectall
  257. typestyle normal
  258. style “temp”    —temporary style so that all the text will fit into the pasteboard space available.
  259.  
  260. —======================================================
  261. —copy, cut and paste these months into the correct order so that the previous and next month can be displayed for each month.
  262.  
  263. textcursor -story
  264. textselect +para
  265. textenter “December
  266. “    —correct name of month (we pasted in March,  correct to December)
  267.  
  268. textcursor +para
  269. textselect +para
  270. textselect +para
  271. cut    — january
  272. textcursor +para
  273. textcursor +para
  274. paste
  275.  
  276. textcursor -para
  277. textcursor -para
  278. textselect -para
  279. textselect -para
  280. copy    —februrary
  281. textcursor +para
  282. textcursor +para
  283. textcursor +para
  284. textcursor +para
  285. paste
  286.  
  287. textcursor -para
  288. textcursor -para
  289. textselect -para
  290. textselect -para
  291. copy    —march
  292. textcursor +para
  293. textcursor +para
  294. textcursor +para
  295. textcursor +para
  296. paste
  297.  
  298. textcursor -para
  299. textcursor -para
  300. textselect -para
  301. textselect -para
  302. copy    —april
  303. textcursor +para
  304. textcursor +para
  305. textcursor +para
  306. textcursor +para
  307. paste
  308.  
  309. textcursor -para
  310. textcursor -para
  311. textselect -para
  312. textselect -para
  313. copy    —may
  314. textcursor +para
  315. textcursor +para
  316. textcursor +para
  317. textcursor +para
  318. paste
  319.  
  320. textcursor -para
  321. textcursor -para
  322. textselect -para
  323. textselect -para
  324. copy    —june
  325. textcursor +para
  326. textcursor +para
  327. textcursor +para
  328. textcursor +para
  329. paste
  330.  
  331. textcursor -para
  332. textcursor -para
  333. textselect -para
  334. textselect -para
  335. copy    —july
  336. textcursor +para
  337. textcursor +para
  338. textcursor +para
  339. textcursor +para
  340. paste
  341.  
  342. textcursor -para
  343. textcursor -para
  344. textselect -para
  345. textselect -para
  346. copy    —august
  347. textcursor +para
  348. textcursor +para
  349. textcursor +para
  350. textcursor +para
  351. paste
  352.  
  353. textcursor -para
  354. textcursor -para
  355. textselect -para
  356. textselect -para
  357. copy    —september
  358. textcursor +para
  359. textcursor +para
  360. textcursor +para
  361. textcursor +para
  362. paste
  363.  
  364. textcursor -para
  365. textcursor -para
  366. textselect -para
  367. textselect -para
  368. copy    —october
  369. textcursor +para
  370. textcursor +para
  371. textcursor +para
  372. textcursor +para
  373. paste
  374.  
  375. textcursor -para
  376. textcursor -para
  377. textselect -para
  378. textselect -para
  379. copy    —november
  380. textcursor +para
  381. textcursor +para
  382. textcursor +para
  383. textcursor +para
  384. paste
  385.  
  386. textselect +para
  387. textenter “January
  388. “    —correct name of month (we pasted in May,  correct to January)
  389.  
  390. ————————————————————————————————————————
  391. —apply the correct style for each paragraph
  392. style “Small Days”
  393. textcursor -para
  394. style “Small Months”
  395. textcursor -para
  396.  
  397. style “Small Days”
  398. textcursor -para
  399. style “Small Months”
  400. textcursor -para
  401.  
  402. style “Small Days”
  403. textcursor -para
  404. style “Small Months”
  405. textcursor -para
  406.  
  407. style “Small Days”
  408. textcursor -para
  409. style “Small Months”
  410. textcursor -para
  411.  
  412. style “Small Days”
  413. textcursor -para
  414. style “Small Months”
  415. textcursor -para
  416.  
  417. style “Small Days”
  418. textcursor -para
  419. style “Small Months”
  420. textcursor -para
  421.  
  422. style “Small Days”
  423. textcursor -para
  424. style “Small Months”
  425. textcursor -para
  426.  
  427. style “Small Days”
  428. textcursor -para
  429. style “Small Months”
  430. textcursor -para
  431.  
  432. style “Small Days”
  433. textcursor -para
  434. style “Small Months”
  435. textcursor -para
  436.  
  437. style “Small Days”
  438. textcursor -para
  439. style “Small Months”
  440. textcursor -para
  441.  
  442. style “Small Days”
  443. textcursor -para
  444. style “Small Months”
  445. textcursor -para
  446.  
  447. style “Small Days”
  448. textcursor -para
  449. style “Small Months”
  450. textcursor -para
  451.  
  452. style “Small Days”
  453. textcursor -para
  454. style “Small Months”
  455. textcursor -para
  456.  
  457. style “Small Days”
  458. textcursor -para
  459. style “Small Months”
  460. textcursor -para
  461.  
  462. style “Small Days”
  463. textcursor -para
  464. style “Small Months”
  465. textcursor -para
  466.  
  467. style “Small Days”
  468. textcursor -para
  469. style “Small Months”
  470. textcursor -para
  471.  
  472. style “Small Days”
  473. textcursor -para
  474. style “Small Months”
  475. textcursor -para
  476.  
  477. style “Small Days”
  478. textcursor -para
  479. style “Small Months”
  480. textcursor -para
  481.  
  482. style “Small Days”
  483. textcursor -para
  484. style “Small Months”
  485. textcursor -para
  486.  
  487. style “Small Days”
  488. textcursor -para
  489. style “Small Months”
  490. textcursor -para
  491.  
  492. style “Small Days”
  493. textcursor -para
  494. style “Small Months”
  495. textcursor -para
  496.  
  497. style “Small Days”
  498. textcursor -para
  499. style “Small Months”
  500. textcursor -para
  501.  
  502. style “Small Days”
  503. textcursor -para
  504. style “Small Months”
  505. textcursor -para
  506.  
  507. style “Small Days”
  508. textcursor -para
  509. style “Small Months”
  510. textcursor -para
  511.  
  512. ————————————————————————————————————————
  513. —place the previous/next month entries 
  514. pagemargins .5i 5.3i 9i 0.5i
  515. select -1i 0i
  516. resize bottom -5i 0 1
  517. —autoflow 1
  518. placenext
  519. place .5i 5.3i
  520.  
  521. ——————————————————————————————————————————————————
  522. —end of routine  — clean-up
  523. removestyle “temp”
  524. page 1
  525. autoflow 0 
  526. pagemargins 2.3i 0.5i 0.5i 0.5i
  527.